home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / esdfeduc / main.fr_ / main.fr (.txt)
Encoding:
Visual Basic Form  |  1997-12-29  |  4.5 KB  |  151 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "NWind main form"
  4.    ClientHeight    =   3375
  5.    ClientLeft      =   1515
  6.    ClientTop       =   1395
  7.    ClientWidth     =   7020
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3375
  10.    ScaleWidth      =   7020
  11.    Begin VB.CommandButton Command1 
  12.       Caption         =   "&Employees"
  13.       Height          =   435
  14.       Index           =   5
  15.       Left            =   1920
  16.       TabIndex        =   5
  17.       Top             =   2520
  18.       Width           =   1155
  19.    End
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "C&ustomers"
  22.       Height          =   435
  23.       Index           =   4
  24.       Left            =   1920
  25.       TabIndex        =   4
  26.       Top             =   1980
  27.       Width           =   1155
  28.    End
  29.    Begin VB.CommandButton Command1 
  30.       Caption         =   "&Suppliers"
  31.       Height          =   435
  32.       Index           =   3
  33.       Left            =   1920
  34.       TabIndex        =   3
  35.       Top             =   1440
  36.       Width           =   1155
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "&Products"
  40.       Height          =   435
  41.       Index           =   2
  42.       Left            =   600
  43.       TabIndex        =   2
  44.       Top             =   2520
  45.       Width           =   1155
  46.    End
  47.    Begin VB.CommandButton Command1 
  48.       Caption         =   "&Orders"
  49.       Height          =   435
  50.       Index           =   1
  51.       Left            =   600
  52.       TabIndex        =   1
  53.       Top             =   1980
  54.       Width           =   1155
  55.    End
  56.    Begin VB.CommandButton Command1 
  57.       Caption         =   "&Categories"
  58.       Height          =   435
  59.       Index           =   0
  60.       Left            =   600
  61.       TabIndex        =   0
  62.       Top             =   1440
  63.       Width           =   1155
  64.    End
  65.    Begin VB.Frame Frame1 
  66.       Caption         =   "Data tables"
  67.       Height          =   1995
  68.       Left            =   120
  69.       TabIndex        =   6
  70.       Top             =   1200
  71.       Width           =   3495
  72.    End
  73.    Begin VB.CommandButton Command2 
  74.       Caption         =   "Quarterly Orders"
  75.       Height          =   435
  76.       Index           =   2
  77.       Left            =   4500
  78.       TabIndex        =   7
  79.       Top             =   2520
  80.       Width           =   1875
  81.    End
  82.    Begin VB.CommandButton Command2 
  83.       Caption         =   "Customer Orders"
  84.       Height          =   435
  85.       Index           =   1
  86.       Left            =   4500
  87.       TabIndex        =   8
  88.       Top             =   1980
  89.       Width           =   1875
  90.    End
  91.    Begin VB.CommandButton Command2 
  92.       Caption         =   "Customer phones"
  93.       Height          =   435
  94.       Index           =   0
  95.       Left            =   4500
  96.       TabIndex        =   9
  97.       Top             =   1440
  98.       Width           =   1875
  99.    End
  100.    Begin VB.Frame Frame2 
  101.       Caption         =   "Summary"
  102.       Height          =   1995
  103.       Left            =   4140
  104.       TabIndex        =   10
  105.       Top             =   1200
  106.       Width           =   2715
  107.    End
  108.    Begin VB.Label Label3 
  109.       Caption         =   "If it is located in another place on your computer, you need to modify property DatabaseName of all Table controls."
  110.       Height          =   495
  111.       Left            =   120
  112.       TabIndex        =   12
  113.       Top             =   600
  114.       Width           =   6615
  115.    End
  116.    Begin VB.Label Label2 
  117.       AutoSize        =   -1  'True
  118.       Caption         =   "This sample uses database C:\Program Files\DevStudio\VB\Nwind.mdb"
  119.       Height          =   195
  120.       Left            =   120
  121.       TabIndex        =   11
  122.       Top             =   240
  123.       Width           =   6555
  124.    End
  125. Attribute VB_Name = "frmMain"
  126. Attribute VB_GlobalNameSpace = False
  127. Attribute VB_Creatable = False
  128. Attribute VB_PredeclaredId = True
  129. Attribute VB_Exposed = False
  130. Option Explicit
  131. Private Sub Command1_Click(Index As Integer)
  132.     Select Case Index
  133.     Case 0: frmCategories.Show
  134.     Case 1: frmOrders.Show
  135.     Case 2: frmProducts.Show
  136.     Case 3: frmSuppliers.Show
  137.     Case 4: frmCustomers.Show
  138.     Case 5: frmEmployees.Show
  139.     End Select
  140. End Sub
  141. Private Sub Command2_Click(Index As Integer)
  142.     Select Case Index
  143.     Case 0: frmCustomerPhones.Show
  144.     Case 1: frmCustomerOrders.Show
  145.     Case 2: frmQuarterlyOrders.Show
  146.     End Select
  147. End Sub
  148. Private Sub Form_Unload(Cancel As Integer)
  149.     End
  150. End Sub
  151.